Fortran select case 语句

! 放入一个变量
select case(score)
! 只能使用整数、字符、逻辑常量
! 不能用浮点数，也不能用变量
case(90)
case(90:100)
case(90:)
case(:100)
case(90,100)
case default
end select